home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Graphical 187284232001.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-04-17  |  5.5 KB  |  229 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "abc "
  4.    ClientHeight    =   990
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   1995
  8.    Icon            =   "Form3.frx":0000
  9.    LinkTopic       =   "Form3"
  10.    ScaleHeight     =   990
  11.    ScaleWidth      =   1995
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command5 
  14.       Caption         =   "&Exit"
  15.       Height          =   255
  16.       Left            =   1080
  17.       TabIndex        =   14
  18.       Top             =   720
  19.       Width           =   855
  20.    End
  21.    Begin VB.CommandButton Command4 
  22.       Caption         =   "/"
  23.       Height          =   255
  24.       Left            =   1560
  25.       TabIndex        =   7
  26.       Top             =   480
  27.       Width           =   375
  28.    End
  29.    Begin VB.CommandButton Command3 
  30.       Caption         =   "-"
  31.       Height          =   255
  32.       Left            =   1080
  33.       TabIndex        =   6
  34.       Top             =   480
  35.       Width           =   375
  36.    End
  37.    Begin VB.CommandButton Command2 
  38.       Caption         =   "X"
  39.       Height          =   255
  40.       Left            =   1560
  41.       TabIndex        =   5
  42.       Top             =   120
  43.       Width           =   375
  44.    End
  45.    Begin VB.CommandButton Command1 
  46.       Caption         =   "+"
  47.       Height          =   255
  48.       Left            =   1080
  49.       TabIndex        =   4
  50.       Top             =   120
  51.       Width           =   375
  52.    End
  53.    Begin VB.TextBox Text4 
  54.       Height          =   285
  55.       Left            =   600
  56.       TabIndex        =   3
  57.       Top             =   600
  58.       Width           =   375
  59.    End
  60.    Begin VB.TextBox Text3 
  61.       Height          =   285
  62.       Left            =   600
  63.       TabIndex        =   2
  64.       Top             =   120
  65.       Width           =   375
  66.    End
  67.    Begin VB.TextBox Text2 
  68.       Height          =   285
  69.       Left            =   0
  70.       TabIndex        =   1
  71.       Top             =   600
  72.       Width           =   375
  73.    End
  74.    Begin VB.TextBox Text1 
  75.       Height          =   285
  76.       Left            =   0
  77.       TabIndex        =   0
  78.       Top             =   120
  79.       Width           =   375
  80.    End
  81.    Begin VB.Label Label6 
  82.       Caption         =   "0"
  83.       Height          =   495
  84.       Left            =   2520
  85.       TabIndex        =   13
  86.       Top             =   1320
  87.       Width           =   1215
  88.    End
  89.    Begin VB.Label Label5 
  90.       Caption         =   "0"
  91.       Height          =   495
  92.       Left            =   1560
  93.       TabIndex        =   12
  94.       Top             =   1320
  95.       Width           =   1215
  96.    End
  97.    Begin VB.Label Label4 
  98.       Caption         =   "0"
  99.       Height          =   255
  100.       Left            =   1320
  101.       TabIndex        =   11
  102.       Top             =   1560
  103.       Width           =   1215
  104.    End
  105.    Begin VB.Label Label3 
  106.       Caption         =   "0"
  107.       Height          =   495
  108.       Left            =   1320
  109.       TabIndex        =   10
  110.       Top             =   1320
  111.       Width           =   1215
  112.    End
  113.    Begin VB.Label Label2 
  114.       Caption         =   "0"
  115.       Height          =   255
  116.       Left            =   0
  117.       TabIndex        =   9
  118.       Top             =   1320
  119.       Width           =   1215
  120.    End
  121.    Begin VB.Label Label1 
  122.       Caption         =   "0"
  123.       Height          =   495
  124.       Left            =   0
  125.       TabIndex        =   8
  126.       Top             =   1560
  127.       Width           =   1215
  128.    End
  129.    Begin VB.Line Line2 
  130.       X1              =   600
  131.       X2              =   960
  132.       Y1              =   480
  133.       Y2              =   480
  134.    End
  135.    Begin VB.Line Line1 
  136.       X1              =   0
  137.       X2              =   360
  138.       Y1              =   480
  139.       Y2              =   480
  140.    End
  141. Attribute VB_Name = "Form3"
  142. Attribute VB_GlobalNameSpace = False
  143. Attribute VB_Creatable = False
  144. Attribute VB_PredeclaredId = True
  145. Attribute VB_Exposed = False
  146. Private Sub Command1_Click()
  147. On Error Resume Next
  148. Label1 = ""
  149. Label2 = ""
  150. Label3 = ""
  151. Label4 = ""
  152. Label5 = ""
  153. Label1 = Text2 * Text4
  154. Label3 = Label1 / Text4 * Text3
  155. Label2 = Label1 / Text2 * Text1
  156. Label4 = Text2 * Text4
  157. Label5 = 0 + Label2 + Label3
  158. MsgBox Label5 + "/" + Label1
  159. Text1 = ""
  160. Text2 = ""
  161. Text3 = ""
  162. Text4 = ""
  163. End Sub
  164. Private Sub Command2_Click()
  165. On Error Resume Next
  166. Label1 = ""
  167. Label2 = ""
  168. Label3 = ""
  169. Label4 = ""
  170. Label5 = ""
  171. Label2 = Text1 * Text3
  172. Label3 = Text2 * Text4
  173. Label5 = 0 + Label2
  174. MsgBox Label5 + "/" + Label3
  175. Text1 = ""
  176. Text2 = ""
  177. Text3 = ""
  178. Text4 = ""
  179. End Sub
  180. Private Sub Command3_Click()
  181. On Error Resume Next
  182. Label1 = ""
  183. Label2 = ""
  184. Label3 = ""
  185. Label4 = ""
  186. Label5 = ""
  187. Label1 = Text2 * Text4
  188. Label3 = Label1 / Text4 * Text3
  189. Label2 = Label1 / Text2 * Text1
  190. Label4 = Text2 * Text4
  191. Label5 = 0 + Label2 - Label3
  192. MsgBox Label5 + "/" + Label1
  193. Text1 = ""
  194. Text2 = ""
  195. Text3 = ""
  196. Text4 = ""
  197. End Sub
  198. Private Sub Command4_Click()
  199. On Error Resume Next
  200. Label1 = ""
  201. Label2 = ""
  202. Label3 = ""
  203. Label4 = ""
  204. Label5 = ""
  205. Label6 = ""
  206. Label6 = Text4
  207. Text4 = Text3
  208. Text3 = Label6
  209. Label1 = Text1 * Text3
  210. Label2 = Text2 * Text4
  211. MsgBox Label1 + "/" + Label2
  212. Text1 = ""
  213. Text2 = ""
  214. Text3 = ""
  215. Text4 = ""
  216. End Sub
  217. Private Sub Command5_Click()
  218. Unload Me
  219. End Sub
  220. Private Sub Form_Load()
  221. On Error Resume Next
  222. Label1.Visible = False
  223. Label2.Visible = False
  224. Label3.Visible = False
  225. Label4.Visible = False
  226. Label5.Visible = False
  227. Label6.Visible = False
  228. End Sub
  229.